home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 October / CHIP Turkiye Ekim 2000.iso / prog / share / 54 / Windows / system32 / ATRSRC32.DLL / TEXT / 1 next >
Text File  |  2000-02-08  |  2KB  |  77 lines
  1. %Miramar Systems PC MACLAN 6.0 Demo Watermark
  2. %Insert this code into PostScript program immediately after each %%EndPageSetup DSC comment
  3.  
  4. /defShowPage systemdict /showpage get def
  5.  
  6. /CenteredLine
  7.     {    /theString exch def
  8.         theString stringwidth
  9.         pop %pop y value off stack
  10.         /theStringWidth exch def
  11.         theStringWidth 2 div neg 0 rmoveto
  12.         theString show
  13.         theStringWidth 2 div neg stringSpacing neg rmoveto
  14.     }
  15.     def    
  16.     %before calling CenteredLine, define stringSpacing
  17.  
  18. /doMiramarWatermark
  19.     {
  20.     gsave    %save the graphics state established thus far by the driver
  21.  
  22.  
  23.     /Courier findfont
  24.     /theStringHeight 36 def theStringHeight scalefont
  25.     theStringHeight 1.2 mul /stringSpacing exch def
  26.     setfont
  27.     initmatrix
  28.     279 702 translate 
  29.     30 rotate
  30.     0 0 moveto
  31.  
  32.     .80 setgray    
  33.  
  34.     (PC MACLAN) CenteredLine 
  35.     (For Windows 2000) CenteredLine
  36.     (Demo Version) CenteredLine
  37.  
  38.     /Courier findfont
  39.     /theStringHeight 18 def theStringHeight scalefont
  40.     theStringHeight 1.2 mul /stringSpacing exch def
  41.     setfont
  42.     initmatrix
  43.     261 247 translate
  44.     30 rotate
  45.     0 0 moveto
  46.  
  47.     (TO ORDER A COMPLETE PACKAGE)    CenteredLine
  48.     (OF PC MACLAN)        CenteredLine    
  49.     (CALL: \(800\) 862-2526)        CenteredLine
  50.     ()                    CenteredLine
  51.  
  52.     /Courier findfont
  53.     /theStringHeight 14 def theStringHeight scalefont
  54.     theStringHeight 1.2 mul /stringSpacing exch def
  55.     setfont
  56.  
  57.     (Miramar Systems, Inc.)            CenteredLine
  58.     (10 East Yanonali Street)        CenteredLine
  59.     (Santa Barbara, CA  93101)        CenteredLine
  60.     (voice: \(805\) 966-2432  \267  fax: \(805\) 965-1824)
  61.                         CenteredLine
  62.     (email: sales@miramarsys.com)        CenteredLine
  63.     (web: www.miramarsys.com)        CenteredLine
  64.  
  65.     grestore %restore driver's graphics state
  66.     }
  67.     def
  68.  
  69. /showpage
  70.     {
  71.     doMiramarWatermark
  72.     defShowPage
  73.     }
  74.     def
  75.  
  76. %End Miramar Watermark
  77.